Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            'ddlTimeZone.DataSource = TimeZoneList.GetTimeZoneList
            'ddlTimeZone.DataBind()
            'If String.IsNullOrEmpty(HttpContext.Current.Profile.GetPropertyValue("TimeZone")) = False Then
            'ddlTimeZone.Items.FindByText(HttpContext.Current.Profile.GetPropertyValue("TimeZone")).Selected = True
            'End If
            'txtUserFullName.Text = HttpContext.Current.Profile.GetPropertyValue("FullName")
        End If
    End Sub

    Public Sub Randomize(ByVal sender As Object, ByVal e As EventArgs)
        'Dim r As Random = New Random
        'FormView1.PageIndex = r.Next(FormView1.PageCount)
    End Sub

    Protected Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        HttpContext.Current.Profile.SetPropertyValue("FullName", txtUserFullName.Text)
        HttpContext.Current.Profile.SetPropertyValue("TimeZone", ddlTimeZone.SelectedValue)
    End Sub
End Class